home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / CUCD / Graphics / Ghostscript / data / gs_dps1.ps < prev    next >
Text File  |  1997-04-12  |  9KB  |  303 lines
  1. %    Copyright (C) 1990, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for analogs of Display PostScript functions
  19. % that are also included in Level 2.
  20. % When this is run, systemdict is still writable,
  21. % but (almost) everything defined here goes into level2dict.
  22.  
  23. level2dict begin
  24.  
  25. % ------ Virtual memory ------ %
  26.  
  27. /currentshared /.currentglobal load def
  28. /scheck /.gcheck load def
  29. %****** FOLLOWING IS WRONG ******
  30. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  31.  
  32. % Global and LocalFontDirectory must remain in systemdict
  33. % even if we temporarily exit Level 2 mode.
  34.  
  35. end                % level2dict
  36. systemdict begin
  37.  
  38. /SharedFontDirectory FontDirectory .gcheck
  39.  { .currentglobal false .setglobal
  40.    /LocalFontDirectory FontDirectory dup maxlength dict copy def
  41.    .setglobal FontDirectory
  42.  }
  43.  { /LocalFontDirectory FontDirectory def
  44.    50 dict
  45.  }
  46. ifelse def
  47.  
  48. end                % systemdict
  49. level2dict begin
  50.  
  51. % setshared must rebind FontDirectory to the appropriate one of
  52. % Local or SharedFontDirectory.
  53.  
  54. /.setglobal
  55.  { .setglobal
  56.    //systemdict /FontDirectory .currentglobal
  57.     { //SharedFontDirectory }
  58.     { //systemdict /LocalFontDirectory get }    % can't embed ref to local VM
  59.    ifelse .forceput
  60.  } .bind odef        % must bind .forceput and .setglobal
  61.             % even if NOBIND in effect
  62. /setshared /.setglobal load def
  63. .currentglobal setshared
  64.  
  65. % ------ Fonts ------ %
  66.  
  67. /selectfont
  68.  { exch findfont exch
  69.    dup type /arraytype eq { makefont } { scalefont } ifelse
  70.    setfont
  71.  } odef
  72. % Undefinefont has to take local/global VM into account.
  73. /undefinefont
  74.  { FontDirectory 1 index .undef
  75.    .currentglobal
  76.     {        % Current mode is global; delete from local directory too.
  77.       //systemdict /LocalFontDirectory .knownget
  78.        { exch .undef }
  79.        { pop }
  80.       ifelse
  81.     }
  82.     {        % Current mode is local; if there was a shadowed global
  83.         % definition, copy it into the local directory.
  84.       //systemdict /SharedFontDirectory .knownget
  85.        { 1 index .knownget
  86.       { FontDirectory 3 1 roll put }
  87.       { pop }
  88.      ifelse
  89.        }
  90.       if
  91.     }
  92.    ifelse
  93.  } odef
  94.  
  95. % If we load a font into global VM within an inner save, the restore
  96. % will delete it from FontDirectory but not from SharedFontDirectory.
  97. % We have to handle this by making restore copy missing entries from
  98. % SharedFontDirectory to FontDirectory.  Since this could slow down restore
  99. % considerably, we define a new operator .dictcopynew for this purpose.
  100. % Furthermore, if FAKEFONTS is in effect, we want global real fonts to
  101. % override fake local ones.  We handle this by brute force.
  102. /restore
  103.  { //restore
  104.    //systemdict /LocalFontDirectory get
  105.    FAKEFONTS
  106.     { mark
  107.         % We want to delete a fake font from the local directory
  108.         % iff the global directory now has no definition for it,
  109.         % or a non-fake definition.
  110.       1 index dup
  111.        {        % Stack: lfd mark lfd key ... lfd key value
  112.      length 1 gt
  113.       {        % This is a real local definition; don't do anything.
  114.         pop
  115.       }
  116.       {        % This is a fake local definition, check for global.
  117.         //SharedFontDirectory 1 index .knownget
  118.          {        % A global definition exists, check for fake.
  119.            length 1 eq { pop } { 1 index } ifelse
  120.          }
  121.          {        % No global definition, delete the local one.
  122.            1 index
  123.          }
  124.         ifelse
  125.       }
  126.      ifelse
  127.        } forall
  128.       pop counttomark 2 idiv { .undef } repeat pop
  129.     }
  130.    if
  131.    //SharedFontDirectory exch .dictcopynew pop
  132.  } bind odef
  133.  
  134. % ------ Halftones ------ %
  135.  
  136. /.makestackdict
  137.     { { counttomark -1 roll } forall .dicttomark
  138.     } bind def
  139. /currenthalftone
  140.     { mark .currenthalftone
  141.        { { exch pop }        % halftone
  142.          { /HalftoneType 1        % screen
  143.         { /Frequency /Angle /SpotFunction }
  144.            .makestackdict
  145.          }
  146.          { /HalftoneType 2        % colorscreen
  147.         { /RedFrequency /RedAngle /RedSpotFunction
  148.           /GreenFrequency /GreenAngle /GreenSpotFunction
  149.           /BlueFrequency /BlueAngle /BlueSpotFunction
  150.           /GrayFrequency /GrayAngle /GraySpotFunction
  151.         }
  152.            .makestackdict
  153.          }
  154.        }
  155.       exch get exec
  156.     } odef
  157. % Define sethalftone so it converts all other types to type 5.
  158. /.sethalftoneRGBV    % <dict> <type> <keys> <keysRGBV>
  159.     { 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  160.       14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red }
  161.        {        % stack: v0 v1 v2 type keys comp
  162.          mark
  163.          2 index 0 get 8 -1 roll
  164.          4 index 1 get 9 -1 roll
  165.          6 index 2 get 10 -1 roll
  166.             % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  167.          /HalftoneType 10 index .dicttomark
  168.          counttomark 2 roll
  169.        }
  170.       forall pop pop
  171.       /Default 1 index .dicttomark .sethalftone5
  172.     } bind def
  173. /sethalftone
  174.     { dup /HalftoneType get 1 sub
  175.        {  { mark /Default 2 index .dicttomark .sethalftone5 }
  176.           { 1 { /Frequency /Angle /SpotFunction }
  177.         { /RedFrequency /RedAngle /RedSpotFunction
  178.           /GreenFrequency /GreenAngle /GreenSpotFunction
  179.           /BlueFrequency /BlueAngle /BlueSpotFunction
  180.           /GrayFrequency /GrayAngle /GraySpotFunction
  181.         } .sethalftoneRGBV
  182.           }
  183.           { mark /Default 2 index .dicttomark .sethalftone5 }
  184.           { 3 { /Width /Height /Thresholds }
  185.         { /RedWidth /RedHeight /RedThresholds
  186.           /GreenWidth /GreenHeight /GreenThresholds
  187.           /BlueWidth /BlueHeight /BlueThresholds
  188.           /GrayWidth /GrayHeight /GrayThresholds
  189.         } .sethalftoneRGBV
  190.           }
  191.           { dup .sethalftone5 }
  192.        } exch get exec
  193.     } odef
  194. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries,
  195. % and to insert the Frequency and Angle into Type 1 halftones, per
  196. % Adobe TN 5085.
  197. /.fixsethalftonescreen
  198.  { dup /HalftoneType get 1 eq
  199.     { dup wcheck not { dup length .copydict } if
  200.       dup /Frequency 4 index put
  201.       dup /Angle 3 index put
  202.     }
  203.    if
  204.  } bind def
  205. /setscreen
  206.     { dup type /dicttype eq
  207.        { .fixsethalftonescreen sethalftone pop pop }
  208.        { //setscreen }
  209.       ifelse
  210.     } odef
  211. /setcolorscreen
  212.     { dup type /dicttype eq
  213.        { .fixsethalftonescreen sethalftone 11 { pop } repeat }
  214.        { //setcolorscreen }
  215.       ifelse
  216.     } odef
  217. % Redefine currentscreen and currentcolorscreen to extract the Frequency
  218. % and Angle from Type 1 halftones, per Adobe TN 5085.
  219. /.fixcurrenthalftonescreen    % <dict> .fix... <freq> <angle> <proc>
  220.  { dup /HalftoneType get 1 eq
  221.     { dup /Frequency get 1 index /Angle get }
  222.     { 60 0 }
  223.    ifelse 3 2 roll
  224.  } bind def
  225. /currentscreen
  226.     { .currenthalftone
  227.        { { .fixcurrenthalftonescreen }    % halftone
  228.          { }                % screen
  229.          { 12 3 roll 9 { pop } repeat    % colorscreen
  230.            dup type /dicttype eq { .fixcurrenthalftonescreen } if
  231.          }
  232.        }
  233.       exch get exec
  234.     } odef
  235. /currentcolorscreen
  236.     { .currenthalftone
  237.        { { .fixcurrenthalftonescreen 3 copy 6 copy }    % halftone
  238.          { 3 copy 6 copy }            % screen
  239.          { }                % colorscreen
  240.        }
  241.       exch get exec
  242.     } odef
  243.  
  244. % ------ User objects ------ %
  245.  
  246. /.localarray where
  247.  { pop }
  248.  { /.localarray
  249.     { currentglobal false setglobal
  250.       exch array exch setglobal
  251.     } bind def
  252.  }
  253. ifelse
  254. /defineuserobject
  255.     { userdict /.UserObjects known
  256.        { 1 index userdict /.UserObjects get length ge
  257.           { 1 index 1 add .localarray userdict /.UserObjects get
  258.         1 index copy pop
  259.         userdict /.UserObjects 3 -1 roll put
  260.           }
  261.          if
  262.        }
  263.        { userdict /.UserObjects 3 index 1 add .localarray put
  264.        }
  265.       ifelse
  266.       userdict /.UserObjects get 3 1 roll put
  267.     } odef
  268. /execuserobject
  269.     { userdict /.UserObjects get exch get exec
  270.     } odef
  271. /undefineuserobject
  272.     { userdict /.UserObjects get exch null put
  273.     } odef
  274.  
  275. % ------ User paths ------ %
  276.  
  277. % We define upath carefully so it won't leave garbage on the stack
  278. % if an error occurs.
  279. /upath
  280.     { [
  281.        { 1 index {/ucache cvx} if true .pathbbox /setbbox cvx
  282.          {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  283.          pathforall ]
  284.        }
  285.       .internalstopped
  286.        { cleartomark /upath load $error /errorname get signalerror
  287.        }
  288.       if cvx exch pop
  289.     } odef
  290.  
  291. % Dummy definitions for cache control operators
  292.  
  293. /ucachestatus
  294.     { mark 0 0 0 0 0 } odef
  295. /setucacheparams
  296.     { cleartomark } odef
  297.  
  298. % ------ Miscellaneous ------ %
  299.  
  300. /undef /.undef load def
  301.  
  302. end                % level2dict
  303.